home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 35 / PC Gamer IT CD 35 2-2.iso / utility / prokal63 / ProKalc.exe / 0 / RCDATA / TCURRENCYFORM / TCURRENCYFORM.txt
Encoding:
Text File  |  1998-09-10  |  4.2 KB  |  196 lines
  1. object CurrencyForm: TCurrencyForm
  2.   Left = 267
  3.   Top = 191
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Currency Conversion'
  7.   ClientHeight = 205
  8.   ClientWidth = 429
  9.   Color = clSilver
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clBlack
  12.   Font.Height = -13
  13.   Font.Name = 'Arial'
  14.   Font.Style = [fsBold]
  15.   Scaled = False
  16.   OnActivate = FormActivate
  17.   OnClose = FormClose
  18.   OnPaint = FormPaint
  19.   OnShow = FormShow
  20.   PixelsPerInch = 96
  21.   TextHeight = 16
  22.   object HelpButton: TBitBtn
  23.     Left = 348
  24.     Top = 170
  25.     Width = 75
  26.     Height = 26
  27.     Hint = 'Get help...'
  28.     ParentShowHint = False
  29.     ShowHint = True
  30.     TabOrder = 0
  31.     OnClick = HelpButtonClick
  32.     Kind = bkHelp
  33.   end
  34.   object CloseButton: TBitBtn
  35.     Left = 264
  36.     Top = 170
  37.     Width = 75
  38.     Height = 26
  39.     Hint = 'Return to calculator'
  40.     ParentShowHint = False
  41.     ShowHint = True
  42.     TabOrder = 1
  43.     OnClick = CloseButtonClick
  44.     Kind = bkClose
  45.   end
  46.   object SolveButton: TBitBtn
  47.     Left = 180
  48.     Top = 170
  49.     Width = 75
  50.     Height = 26
  51.     Hint = 'Perform conversion.'
  52.     Caption = '&Solve'
  53.     ParentShowHint = False
  54.     ShowHint = True
  55.     TabOrder = 2
  56.     OnClick = SolveButtonClick
  57.   end
  58.   object CurrencyGroup: TRadioGroup
  59.     Left = 0
  60.     Top = -20
  61.     Width = 429
  62.     Height = 183
  63.     Hint = 'Select currency to convert to...|'
  64.     Font.Charset = DEFAULT_CHARSET
  65.     Font.Color = clBlack
  66.     Font.Height = -13
  67.     Font.Name = 'Arial'
  68.     Font.Style = [fsBold]
  69.     ItemIndex = 0
  70.     Items.Strings = (
  71.       'Convert From'
  72.       'Convert From United States $')
  73.     ParentFont = False
  74.     ParentShowHint = False
  75.     ShowHint = True
  76.     TabOrder = 3
  77.   end
  78.   object CurFromDropDown: TComboBox
  79.     Left = 118
  80.     Top = 26
  81.     Width = 179
  82.     Height = 24
  83.     Hint = 'Select foreign currency.'
  84.     Style = csDropDownList
  85.     ItemHeight = 16
  86.     Items.Strings = (
  87.       'Belgian Franc'
  88.       'British Pound'
  89.       'Canadian $'
  90.       'French Frank'
  91.       'German Mark'
  92.       'Italian Lire'
  93.       'Israeli Shekel'
  94.       'Japanese Yen'
  95.       'Mexican Peso'
  96.       'Nigerian Naira'
  97.       'Saudi Riyal'
  98.       'Swiss Franc'
  99.       'United States $')
  100.     ParentShowHint = False
  101.     ShowHint = True
  102.     TabOrder = 4
  103.     OnChange = CurFromDropDownChange
  104.   end
  105.   object CurFromEnter: TMemo
  106.     Left = 302
  107.     Top = 24
  108.     Width = 120
  109.     Height = 30
  110.     Hint = 'Enter foreign currency amount.'
  111.     Alignment = taRightJustify
  112.     Color = clBlack
  113.     Font.Charset = DEFAULT_CHARSET
  114.     Font.Color = clLime
  115.     Font.Height = -13
  116.     Font.Name = 'System'
  117.     Font.Style = [fsBold]
  118.     ParentFont = False
  119.     ParentShowHint = False
  120.     ShowHint = True
  121.     TabOrder = 5
  122.     WordWrap = False
  123.     OnKeyUp = CurFromEnterKeyUp
  124.   end
  125.   object CurFactor: TMemo
  126.     Left = 302
  127.     Top = 64
  128.     Width = 120
  129.     Height = 30
  130.     Hint = 'Enter factor for conversion '#13'to United States dollars.|'
  131.     Alignment = taRightJustify
  132.     Color = clBlack
  133.     Font.Charset = DEFAULT_CHARSET
  134.     Font.Color = clLime
  135.     Font.Height = -13
  136.     Font.Name = 'System'
  137.     Font.Style = []
  138.     ParentFont = False
  139.     ParentShowHint = False
  140.     ShowHint = True
  141.     TabOrder = 6
  142.     WordWrap = False
  143.     OnExit = CurFactorExit
  144.     OnKeyUp = CurFactorKeyUp
  145.   end
  146.   object CurToEnter: TMemo
  147.     Left = 302
  148.     Top = 104
  149.     Width = 120
  150.     Height = 30
  151.     Hint = 'Enter US dollars.'
  152.     Alignment = taRightJustify
  153.     Color = clBlack
  154.     Font.Charset = DEFAULT_CHARSET
  155.     Font.Color = clLime
  156.     Font.Height = -13
  157.     Font.Name = 'System'
  158.     Font.Style = []
  159.     ParentFont = False
  160.     ParentShowHint = False
  161.     ShowHint = True
  162.     TabOrder = 7
  163.     WordWrap = False
  164.     OnKeyUp = CurToEnterKeyUp
  165.   end
  166.   object FactorLabel: TMemo
  167.     Left = 56
  168.     Top = 68
  169.     Width = 131
  170.     Height = 27
  171.     BorderStyle = bsNone
  172.     Color = clSilver
  173.     Font.Charset = DEFAULT_CHARSET
  174.     Font.Color = clBlack
  175.     Font.Height = -13
  176.     Font.Name = 'Arial'
  177.     Font.Style = [fsBold]
  178.     Lines.Strings = (
  179.       'Conversion Factor:')
  180.     ParentFont = False
  181.     TabOrder = 8
  182.   end
  183.   object SaveButton: TBitBtn
  184.     Left = 96
  185.     Top = 170
  186.     Width = 75
  187.     Height = 26
  188.     Hint = 'Save conversion factor.'
  189.     Caption = 'S&ave'
  190.     ParentShowHint = False
  191.     ShowHint = True
  192.     TabOrder = 9
  193.     OnClick = SaveButtonClick
  194.   end
  195. end
  196.